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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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Cc é 
| **FILE**1D**FORSTOP 
FFFFFFFFFE 000000 RRRRRRRR SSSSSSSS TITTTTTTITT 000000 PPPPPPPP 
FFFFFFFFFF 000000 RRRRRRRR SSSSSSSS TTTTTTITTITT 000000 PPPPPPPP 
FF 00 OO RR RR SS TT 00 00 PP PP 
FF 00 00 RR RR SS TT 00 00 PP PP 
FF 00 0O RR RR SS TT 00 00 PP PP 
FF 00 OO RR RR SS TT 00 00 PP PP 
FFFFFFFF 00 00 RRRRRRRR SSSSSS TT 00 00 PPPPPPPP 
FFFFFFFF 00 O00 RRRRRRRR SSSSSS TT 00 00 PPPPPPPP 
FF 00 OO RR RR S$ TT 00 00 
FF 00 00 RR RR $$ TT 00 00 PP 
FF 00 OO RR RR SS TT 00 00 PP 
FF 00 00 RR RR SS TT 00 00 PP cove 
FF 000000 RR RR SSSSSSSS TT 000000 PP cece 
FF 000000 RR RR SSSSSSSS TT 000000 PP cos 
LL III] SSSSSSSS 
LL HII] SSSSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 11111 SSSSSSSS 


FORSSTOP 1b-sep-19 4 AX=11 Bliss-32 V4.0-742 Pa 
14- se0-1984 et ie cet i 8: FORSTOP.B32:1 = 
MODULE FORSSTOP | | FORTRAN STOP. stazenent 
IDENT = 1004" i File: FORSTOP.B32 Edit:DGP1004 


BEGIN 


! 
See RRA AAA EERE EEE ATTA ATTACKER Ree ee 


:® YRIGH? (c) 1978, 1980, 1982, 1984 B 


3 1 608) 

3 ¢ Oe 

; 000 

; 4 0004 1 

$ 5 0005 1 

; 6 8508 1 

; 7 007 1 

3 8 0008 1 

; 9 Bee 1 * 
; 10 010 1 !# 5 GITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
; 13 8513 : ‘* ALL RIGHTS RESERVED. * 
3 '® e 
; 18 $615 1 !* THIS SOFTWARE IS FURNISHED are A LICENSE AND "1 BE USED AND gd ba * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ae 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s + edt : td TRANSFERRED. * 
3 it * 
H 29 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 58 poss : ‘* CORPORATION. * 
3 ‘® * 
: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; = 0026 1 !« * 
; a 0027 1 !« * 
3 28 0028 1 LORE RERRAERAE EE AAAE RE REEE EEE AEEA REE AEEEEEEAAAATEAERe 
; 2 0029 1! 

; 0030 1 

a. Hh 0031 1 !++ 

oh 0032 1 ! FACILITY: FORTRAN Support Library 

| 0033 1! 

; 34 0034 1 ! ABSTRACT: 

to i 0035 1! 

; 0036 1! Output optional string and suspend process 

Tee 0037 1! 

; 3 0038 1 ! ENVIRONMENT: User Mode - AST re-entrant 

; 0039 1! 

; re Beg ' } AUTHOR: Thomas N. Hastings, CREATION DATE: 8-Aug-1977 

: 42 004 1 ! MODIFIED BY: 

7. 64 0043 1! 

: «44 0044 1! Themes i. Hastings, 8-Aug-1977: VERSION 0 

3 5 0045 1! 01 rigin 

; 646 0046 1! 0-3 = Print FORTRAN STOP if no arg. TNH 13-Dec-77 

: 67 0047 1 ! 0-04 = Change to STARLET library. DGP cooners( 

: | «648 0048 1 ! 0-05 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 

; «69 0049 1 ! 0-06 = Change deg eek RILSTARLE to "avoid conflicts. DGP 1-May-78 

.° = Boe 1! 0-07 = Make une-78 

Eo Sy 051 1 ! 0-08 = Change file” —t. m4 FORSTOP. te and d_change the name of the 

a bo2s 1! REQUIRE file similarly. JBS 14-N 

ae 055 1 ! 1-001 = Update version number and copy elent ot JBS_ 16=NOV- 7§ 

7; # Boe 1! 1-008 - Return a value to keep BLISS conpiiler to Bf ead es ab 8 

. ie 055 1 ! 1-003 = Change REQUIRE file names from FOR... Saxe 06-DEC-78 

; 2 0056 1 ! 1-004 - Move ACTUALCOUNT into body of routine ood in nitia RS the class 

- OF 0057 1! and d_type of default descriptor. DGP 28-Oct-1981 
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! TABLE OF CONTENTS: 


FORWARD : 


INCLUDE FILES: 
UIRE 'RTLIN:OTSMAC': 
UIRE "RTLIN:RTLPSECT’: 
RARY "RTLSTARLE'; 


MACROS: 


<-=--f—- wD 
—rmrn 
woo 


EQUATED SYMBOLS: 


PSECT DECLARATIONS: 
DECLARE_PSECTS (FOR); 


| OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 


! STOP statement 


-PSECTS macro 
y for macros and symbols 


! declare PSECTs for FOR$ facility 


LIBSPUT_OUTPUT: NOVALUE ADDRESSING_MODE(GENERAL); ! Output on device $OUTPUT 


GLOBAL ROUTINE FORSSTOP ( ! FORTRAN STOP statement 

MESSAGE _DSC_ADR) ! Adr. of optional string descriptor to output 
- = ' Value returned is SSUSPND completion code 
FUNCTIONAL DESCRIPTION: 

FORTRAN STOP outputs an optional string on device $OUTPUT 

and calls SEXIT with a success completion status. 

If no argument is present, ‘FORTRAN STOP’ is printed. 
FORMAL PARAMETERS: 

message_dsc_adr.rt.dx ! Adr. of optional string descriptor to output 
IMPLICIT INPUTS: 

Logical device assignment for SOUTPUT (see LIBSPUT_OUTPUT) 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 


Outputs message on device $OUTPUT and calls SEXIT with success code 1. 


+ 


BEGIN 


BUILTIN 
ACTUALCOUNT; ' Return the number of actual parameters 


DESCR: DSCSDESCRIPTOR; ! descriptor (needed to be PIC) 
'¢ 
Output optional message on device SOUTPUT, if arg present. 
IF ACTUALCOUNT() GEQ 1 
‘ LIBSPUT_OUTPUT (.MESSAGE_O0SC_ADR) 


NOAUE WR =O OONA UES WN O ODBNAU EWN 0 OOBNAYV EWN OOONOUEW 
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$K_CLASS_S; 
SK"DTYPE-T; 


ae 


DSC 
DSC 
12 


GTH) = 
UPLIT ("FORTRAN STOP"); 


Ww 
COONOUWE WO OW 


PWN 0 OOBWO USWA O OONA VU EWN O ODN UE WN SO ODNOUE WN OO DNAUE WN OOM 
SOOCSOCSOOCOCOCOSCOCOCOSCOSCOSCOOSOOCOSCOSOSOOSOSOOOCSOOOSOOOOO SOO OOOOCOOCOOSGOOOOOOOCOO 
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2 
FORSSTOP 18-5 =1984 00:45:46 AX-11 Bliss-32 V4.0-742 p 4 FOR 
1-004 1ergeR=13Re 99:33:28 een ose Sons yop BSo.1 oF 33 1-0 


50 4F 54 53 20 4E 41 


04 
000000006 
000000006 


SEXIT (CODE=1) 
END; 


52 54 52 4 


5E 

04 
6E 010E000C 
AE dC 
00 
00 


Routine Size: 45 bytes, Routine Base: _FORS$COD 


PSECT SUMMARY 


57 NOVEC,NOWR 


Library Statistics 


160 0445 1 END 
161 0446 0 ELUDOM 

Name Bytes 
_FORSCODE 

File 


-$255$DUA28: CSYSLIBISTARLET.L32;1 


Total 
9776 


H 2 
1erSepm19B4 12:42:08 


EXIT with success completion status code of 1. 


! End of routine FORSSTOP 


AX=-11 
FORRTL.SR 


\1-004\ 


-TITLE FORSSTOP 
- IDENT 


.PSECT _FORSCODE,NOWRT, SHR, 
F 46 00000 P.AAA: .ASCII \FORTRAN STOP\ 


-EXTRN LIBSPUT_OUTPUT, SYSSEXIT 
-ENTRY FORSSTOP, Save nothing 


0000 00000 
08 cs 00002 SUBL2 #8, SP 
6C 95 00005 TSTB (AP 
05 13 00007 EQL 
AC DD 00009 
OE 11 0000C BRB 
8F DO QOO0E 1$ MOVL 
AF 9E 00015 
5E 0D QOOIA PUSHL 
01 FB O00IC 2$ CALLS 
01 00 00023 PUSHL 
01 FB 00025 

04 0002C RET 

E + 000C 


! End of module FORSSTOP 


Attributes 
T« BD s- She, SM, teL. . REL. 


Symbols -------- Pages 
Loaded Percent Mapped 
8 0 581 


) 


8 1$ 
PUSHL  MESSAGE_DSC_ADR 


#17694732, DESCR 
MOVAB peasy DESCR+4 


5 
#1, LIBSPUT_OUTPUT 
CALLS #1, SYSSEXIT 


CON, PIC,ALIGN(2) 


Processing 
Time 


00:01.0 


Oh tages V4.0-742 
CJFORSTOP.B32;1 


PIC,2 


Page 


BeBe Se Se Se Be Se Be Se Se Se Se Se 


1b-sep-1964 00:45:46 yanett alias 


or 
mS 


Astor. 


“ime 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:FORSTOP/OBJ=OBJ$:FORSTOP MSRC$:FORSTOP/UPDATE=(ENH$:FORSTOP) 


45 code + 12 data bytes 
mn tte 0:04.4 
iaoned Time: 0:18.5 
Lines/CPU Min: 054 
Lexemes/CPU-Min: 22656 


pee Used: 49 pages 
Compila 


tion Complete 
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